home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / Windows.el < prev    next >
Encoding:
Text File  |  1994-05-10  |  965 b   |  38 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;;
  4. ;;; GNU Emacs is distributed in the hope that it will be useful,
  5. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  6. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  7. ;;; GNU General Public License for more details.
  8. ;;;
  9.  
  10. ; pascal void ShowWindow(WindowPtr theWindow)
  11. ; = 0xA915; 
  12. (deftrap ShowWindow ("a915")
  13.   ((theWindow long))
  14.   nil)
  15.  
  16. ; pascal void MoveWindow(WindowPtr theWindow,short hGlobal,short vGlobal,
  17. ;    Boolean front)
  18. ;    = 0xA91B; 
  19. (deftrap MoveWindow ("a91b")
  20.   ((theWindow long)
  21.    (hGlobal short)
  22.    (vGlobal short)
  23.    (front short))
  24.   nil)
  25.  
  26. ; pascal void InvalRect(const Rect *badRect)
  27. ;     = 0xA928; 
  28. (deftrap InvalRect ("a928")
  29.   ((badRect address))
  30.   nil)
  31.  
  32. ; extern pascal void SetWinColor(WindowPtr theWindow, WCTabHandle newColorTable)
  33. ;  ONEWORDINLINE(0xAA41);
  34. (deftrap SetWinColor ("aa41")
  35.   ((theWindow long)
  36.    (newColorTable long))
  37.   nil)
  38.